home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / graph-3d.zip / CROSS-SE.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-04-23  |  459 b   |  21 lines
  1. 10 key off:screen 2:cls
  2. 50 for i=-4 to 4
  3. 60 a=320+30*i:b=100
  4. 70 draw "BM"+str$(a)+","+str$(b)+"d5"
  5. 80 next i
  6. 90 for i=-3 to 3
  7. 100 a=318:b=100-30*i
  8. 110 draw "BM"+str$(a)+","+str$(b)+"r5"
  9. 120 next i
  10. 130 for i=-120 to 0
  11. 140 gosub 1000
  12. 150 y=int(30*z+.5)
  13. 160 pset (320+i,100-y)
  14. 165 pset (320-i,100-y)
  15. 170 next i
  16. 180 sound 3000,.1:t=timer:while t+1.5>timer:wend
  17. 190 if inkey$="" then 180
  18. 200 end
  19. 1000 r=-i/30
  20. 1010 z=3*exp(-r*r/4)-1
  21. 1020 return